home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2001 June
/
CHIP Haziran 2001.iso
/
prog
/
yerli
/
07
/
_SETUP.1
/
Emlak 2000.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
< prev
Wrap
Text File
|
1999-02-04
|
24KB
|
1,048 lines
object Form1: TForm1
Left = 236
Top = 141
AutoSize = True
BorderStyle = bsNone
Caption = 'Emlak Takip Program�'
ClientHeight = 480
ClientWidth = 640
Color = 12582912
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnCreate = FormCreate
OnKeyDown = FormKeyDown
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 0
Top = 0
Width = 640
Height = 480
AutoSize = True
Picture.Data = {<image000.jpg>}
OnMouseDown = Image1MouseDown
OnMouseMove = Image1MouseMove
end
object Image2: TImage
Left = 249
Top = 210
Width = 129
Height = 30
Picture.Data = {<image001.bmp>}
Stretch = True
Visible = False
end
object Label1: TLabel
Left = 30
Top = 185
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Kiral�k Daireler'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label1MouseDown
OnMouseUp = Label1MouseUp
end
object Label2: TLabel
Left = 77
Top = 260
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Sat�l�k Daireler'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label2MouseDown
OnMouseUp = Label2MouseUp
end
object Label3: TLabel
Left = 123
Top = 325
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Kiral�k Emlaklar�n Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label3MouseDown
OnMouseUp = Label3MouseUp
end
object Label4: TLabel
Left = 185
Top = 385
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Sat�l�k Emlaklar�n Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label4MouseDown
OnMouseUp = Label4MouseUp
end
object Label5: TLabel
Left = 480
Top = 185
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'M��teri Talepleri'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label5MouseDown
OnMouseUp = Label5MouseUp
end
object Label6: TLabel
Left = 438
Top = 260
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Telefon Defteri'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label6MouseDown
OnMouseUp = Label6MouseUp
end
object Label7: TLabel
Left = 399
Top = 324
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Arsa ve Arazi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label7MouseDown
OnMouseUp = Label7MouseUp
end
object Label8: TLabel
Left = 342
Top = 385
Width = 117
Height = 17
Cursor = crHandPoint
Alignment = taCenter
AutoSize = False
Caption = 'Sabit Tan�mlar�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnMouseDown = Label8MouseDown
OnMouseUp = Label8MouseUp
end
object Label33: TLabel
Left = 48
Top = 432
Width = 129
Height = 17
AutoSize = False
Caption = 'Tarih'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label34: TLabel
Left = 184
Top = 432
Width = 129
Height = 17
AutoSize = False
Caption = 'Saat'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label35: TLabel
Left = 288
Top = 432
Width = 313
Height = 17
Alignment = taCenter
AutoSize = False
Caption = 'Copyright 2000 Erboy Bilgisayar 0(216) 390 1682 - 390 04 97 - 98'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Image17: TImage
Left = 16
Top = 294
Width = 88
Height = 128
AutoSize = True
Picture.Data = {<image002.bmp>}
Visible = False
end
object Image18: TImage
Left = 536
Top = 296
Width = 84
Height = 122
AutoSize = True
Picture.Data = {<image003.bmp>}
Visible = False
end
object Label36: TLabel
Left = 16
Top = 296
Width = 89
Height = 121
Hint = 'Simge'
AutoSize = False
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Label36MouseDown
OnMouseUp = Label36MouseUp
end
object Label37: TLabel
Left = 536
Top = 296
Width = 89
Height = 121
Hint = '��k��'
AutoSize = False
ParentShowHint = False
ShowHint = True
Transparent = True
OnMouseDown = Label37MouseDown
OnMouseUp = Label37MouseUp
end
object Label38: TLabel
Left = 216
Top = 24
Width = 38
Height = 13
Caption = 'Label38'
Visible = False
end
object Label39: TLabel
Left = 288
Top = 16
Width = 29
Height = 13
Caption = 'visible'
Visible = False
end
object DBGrid1: TDBGrid
Left = 40
Top = 64
Width = 553
Height = 91
BorderStyle = bsNone
Color = 12582912
DataSource = DataSource1
FixedColor = 12582912
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
ParentFont = False
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clLime
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = [fsBold]
OnDblClick = DBGrid1DblClick
Columns = <
item
Expanded = False
FieldName = 'Ad'
Width = 130
Visible = True
end
item
Expanded = False
FieldName = 'Soyad'
Width = 131
Visible = True
end
item
Expanded = False
FieldName = 'Telefon'
Width = 116
Visible = True
end
item
Expanded = False
FieldName = 'Ceptel'
Width = 143
Visible = True
end>
end
object Panel1: TPanel
Left = 0
Top = 30
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel1'
Color = clBlue
TabOrder = 1
Visible = False
object Image3: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image004.jpg>}
OnMouseMove = Image3MouseMove
end
object Label9: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Kiral�k Daireler'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Image4: TImage
Left = 27
Top = 32
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image005.bmp>}
Visible = False
end
object Label10: TLabel
Left = 35
Top = 40
Width = 113
Height = 17
Alignment = taCenter
AutoSize = False
Caption = 'Kiral�k Daire Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label10Click
OnMouseMove = Label10MouseMove
end
object Label11: TLabel
Left = 35
Top = 72
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Kiralanan Daire Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label11Click
OnMouseMove = Label11MouseMove
end
object Label12: TLabel
Left = 35
Top = 104
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'G�sterilen Kiral�k Daire'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label12Click
OnMouseMove = Label12MouseMove
end
end
object Panel2: TPanel
Left = 100
Top = 330
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel2'
Color = 12582912
TabOrder = 2
Visible = False
OnMouseMove = Panel2MouseMove
object Image5: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image006.jpg>}
OnMouseMove = Image5MouseMove
end
object Image6: TImage
Left = 28
Top = 64
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image007.jpg>}
Visible = False
end
object Label13: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Sat�l�k Daireler'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label14: TLabel
Left = 40
Top = 40
Width = 105
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Sat�l�k Daire Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label14Click
OnMouseMove = Label14MouseMove
end
object Label15: TLabel
Left = 40
Top = 72
Width = 105
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Sat�lan Dairelerin Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label15Click
OnMouseMove = Label15MouseMove
end
object Label16: TLabel
Left = 40
Top = 104
Width = 105
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'G�sterilen Emlak Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label16Click
OnMouseMove = Label16MouseMove
end
end
object Panel3: TPanel
Left = 10
Top = 330
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel3'
Color = 12582912
TabOrder = 3
Visible = False
object Image7: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image008.jpg>}
OnMouseMove = Image7MouseMove
end
object Image8: TImage
Left = 28
Top = 80
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image009.jpg>}
Visible = False
end
object Label17: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Kiral�k Emlaklar�n Giri�i'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label18: TLabel
Left = 36
Top = 40
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Emlak Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label18Click
OnMouseMove = Label18MouseMove
end
object Label19: TLabel
Left = 36
Top = 88
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Emlak Listesi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label19Click
OnMouseMove = Label19MouseMove
end
end
object Panel4: TPanel
Left = 240
Top = 330
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel4'
Color = 12582912
TabOrder = 4
Visible = False
object Image9: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image010.jpg>}
OnMouseMove = Image9MouseMove
end
object Image10: TImage
Left = 28
Top = 32
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image011.jpg>}
Visible = False
end
object Label20: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Sat�l�k Emlaklar�n Giri�i'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label21: TLabel
Left = 36
Top = 40
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Emlaklar�n Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label21Click
OnMouseMove = Label21MouseMove
end
object Label22: TLabel
Left = 36
Top = 88
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Emlaklar�n Listesi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label22Click
OnMouseMove = Label22MouseMove
end
end
object Panel5: TPanel
Left = 50
Top = 330
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel5'
Color = 12582912
TabOrder = 5
Visible = False
object Image11: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image012.jpg>}
OnMouseMove = Image11MouseMove
end
object Image12: TImage
Left = 28
Top = 80
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image013.jpg>}
Visible = False
end
object Label23: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'M��teri Talepleri'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label24: TLabel
Left = 36
Top = 40
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Talep Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label24Click
OnMouseMove = Label24MouseMove
end
object Label25: TLabel
Left = 36
Top = 88
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Talep Kar��la�t�rma'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label25Click
OnMouseMove = Label25MouseMove
end
end
object Panel6: TPanel
Left = 416
Top = 30
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel6'
Color = 12582912
TabOrder = 6
Visible = False
object Image13: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image014.jpg>}
OnMouseMove = Image13MouseMove
end
object Label26: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Arsa Ve Arazi'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
Transparent = True
end
object Image14: TImage
Left = 28
Top = 80
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image015.jpg>}
Visible = False
end
object Label27: TLabel
Left = 36
Top = 40
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Arsa Ve Arazi Giri�i'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label27Click
OnMouseMove = Label27MouseMove
end
object Label28: TLabel
Left = 36
Top = 88
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Arsa Ve Arazi Listesi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label28Click
OnMouseMove = Label28MouseMove
end
end
object Panel7: TPanel
Left = 224
Top = 168
Width = 180
Height = 140
BevelOuter = bvNone
Caption = 'Panel7'
Color = 12582912
TabOrder = 7
Visible = False
object Image15: TImage
Left = 0
Top = 0
Width = 180
Height = 140
AutoSize = True
Picture.Data = {<image016.bmp>}
OnMouseMove = Image15MouseMove
end
object Image16: TImage
Left = 28
Top = 96
Width = 131
Height = 30
AutoSize = True
Picture.Data = {<image017.jpg>}
Visible = False
end
object Label29: TLabel
Left = 16
Top = 16
Width = 153
Height = 15
Alignment = taCenter
AutoSize = False
Caption = 'Sabit Tan�mlar�'
Font.Charset = TURKISH_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'Arial Black'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label30: TLabel
Left = 36
Top = 40
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Program Hakk�nda'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label30Click
OnMouseMove = Label30MouseMove
end
object Label31: TLabel
Left = 36
Top = 72
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'SemtTan�mlar�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label31Click
OnMouseMove = Label31MouseMove
end
object Label32: TLabel
Left = 36
Top = 104
Width = 113
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Emlak Tan�mlar�'
Font.Charset = DEFAULT_CHARSET
Font.Color = clLime
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
OnClick = Label32Click
OnMouseMove = Label32MouseMove
end
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 608
Top = 440
end
object DataSource1: TDataSource
DataSet = Table1
Left = 64
Top = 16
end
object Table1: TTable
Active = True
TableName = 'tel.db'
Left = 104
Top = 16
object Table1No: TAutoIncField
FieldName = 'No'
ReadOnly = True
end
object Table1Ad: TStringField
FieldName = 'Ad'
end
object Table1Soyad: TStringField
FieldName = 'Soyad'
end
object Table1Telefon: TStringField
FieldName = 'Telefon'
end
object Table1Aciklama: TMemoField
FieldName = 'Aciklama'
BlobType = ftMemo
Size = 50
end
object Table1Ikincitel: TStringField
FieldName = 'Ikincitel'
end
object Table1Ceptel: TStringField
FieldName = 'Ceptel'
end
object Table1Faks: TStringField
FieldName = 'Faks'
end
object Table1Il: TStringField
FieldName = 'Il'
end
object Table1Resim: TGraphicField
FieldName = 'Resim'
BlobType = ftGraphic
end
object Table1Adres: TMemoField
FieldName = 'Adres'
BlobType = ftMemo
Size = 50
end
end
object DataSource2: TDataSource
DataSet = Table2
Left = 40
Top = 224
end
object Table2: TTable
AfterPost = Table2AfterPost
AutoRefresh = True
TableName = 'ilceler.db'
Left = 80
Top = 232
object Table2Sifreemlaktakip: TStringField
FieldName = 'Sifreemlaktakip'
Size = 10
end
object Table2Fdler: TStringField
FieldName = 'Fdler'
Size = 15
end
object Table2S: TFloatField
FieldName = 'S'
end
end
end